home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / libs / PGPLib1_3.lha / PGP / examples / pgptest.rexx
OS/2 REXX Batch file  |  1998-02-09  |  579b  |  29 lines
  1. /* sys:rexxc/rx */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. mantra = "geheim"
  6. stdout = "LOG:"
  7.  
  8. IF ~ SHOW("l", "pgp.library") THEN DO
  9.   IF ~ ADDLIB("pgp.library", 0, -30, 0) THEN DO
  10.     SAY "couldn't access pgp.library"
  11.     EXIT 5
  12.   END
  13. END
  14.  
  15. error = PGPSign("tmp:test", mantra, "tmp:test.sign", "schenk", stdout)
  16. IF error ~= 0 THEN DO
  17.   SAY PGPFault(error, "")
  18. END
  19.  
  20. error = PGPEncrypt("tmp:test", "schenk", "tmp:test.enc", stdout)
  21. IF error ~= 0 THEN DO
  22.   SAY PGPFault(error, "")
  23. END
  24.  
  25. error = PGPDecrypt("tmp:test.enc", mantra, "tmp:test.dec", stdout)
  26. IF error ~= 0 THEN DO
  27.   SAY PGPFault(error, "")
  28. END
  29.